home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00020_CDXPressEndSearch .ls < prev    next >
Encoding:
Text File  |  1997-05-22  |  2.1 KB  |  50 lines
  1. on CDXPressEndSearch
  2.   global CDXProceed, CDXMasSearchList, IFLButtonList, IFLHeadInkList, CDXMasterList, CDXHelpOnStage
  3.   if rollOver(8) and the mouseUp then
  4.     set the castNum of sprite 8 to the number of member "CDXEndSearchButtonTwo"
  5.     updateStage()
  6.     repeat while rollOver(8)
  7.       if the mouseDown then
  8.         set CDXProceed to 2
  9.         exit repeat
  10.       end if
  11.     end repeat
  12.     if CDXProceed = 2 then
  13.       set CDXProceed to 0
  14.       repeat with f = 1 to count(CDXMasSearchList)
  15.         set TwochangeSprite to getAt(CDXMasSearchList, f)
  16.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  17.       end repeat
  18.       repeat with f = 1 to count(CDXMasterList)
  19.         set TwochangeSprite to getAt(CDXMasterList, f)
  20.         if count(TwochangeSprite) > 2 then
  21.           set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  22.           set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  23.           set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  24.           set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  25.           set the visible of sprite getAt(TwochangeSprite, 1) to 1
  26.           next repeat
  27.         end if
  28.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  29.       end repeat
  30.       set the editableText of sprite 9 to 0
  31.       repeat with f = 1 to count(IFLButtonList)
  32.         set TwochangeSprite to getAt(IFLButtonList, f)
  33.         set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  34.         set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  35.         set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  36.       end repeat
  37.       repeat with f = 1 to count(IFLHeadInkList)
  38.         set TwochangeSprite to getAt(IFLHeadInkList, f)
  39.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  40.       end repeat
  41.       updateStage()
  42.       set CDXHelpOnStage to 0
  43.       go("CDXSection")
  44.     else
  45.       set the castNum of sprite 8 to the number of member "CDXEndSearchButtonOne"
  46.       updateStage()
  47.     end if
  48.   end if
  49. end
  50.